home *** CD-ROM | disk | FTP | other *** search
/ Inside Mac Games Volume 3 #12 / IMG 33 Dec 1995.iso / Shareware / Gossamer 2.0 / Sample Worlds / Bishop, Banana, Cube / Bishop, Banana, Cube next >
Text File  |  1993-05-09  |  1KB  |  47 lines
  1. #
  2. # TUMBLE.WLD
  3. #
  4. # A tumbling bishop, banana and cube
  5. #
  6. # Animation by Dave Stampe
  7. #
  8. # Chess piece by Randy Brown, brown@cs.unc.edu
  9. # copyright (c) Randy Brown, OK to distribute if copyright/author appears 
  10. #
  11. # Banana made on Frank Crow's U. Utah surface design system
  12. # copyright (c) Ohio State Univ. - ok to distribute if copyright appears
  13. #
  14.  
  15. loadpath tumble
  16.  
  17. start 0,0,0 0,1,0  # starting location, orientation and zoom
  18. camera 2 -700,9100,8400 84,86,0
  19.  
  20. object c6=bishop    0.8,0.8,0.8     0,0,0   0,-400,8000   0
  21. object c7=banana    0.8,0.8,0.8     0,0,0   0,0,8000   0
  22. object c8=metlcc    3,3,3     0,0,0   1000,-200,10000
  23.  
  24. # Tasks:
  25. animation 150
  26.  state a
  27.   do c6=step(x,x,x -60,99,-15)[]
  28.   do c7=step(x,x,x -118,60,-90)[]
  29.  
  30. animation 150
  31.  state init
  32.   do c8=moveto(700,-1200,10000 x,x,x)[state=a]
  33.  state a
  34.   do c8=gravity(-600,4500,0 0,-4000,0)[]
  35.   do c8=step(x,x,x 150,130,100)[]
  36.   do c8=poslimit(x,-1200,x x,x,x)[state=b][]
  37.  state b
  38.   do c8=gravity(600,4500,0 0,-4000,0)[]
  39.   do c8=step(x,x,x -150,-130,-100)[]
  40.   do c8=poslimit(x,-1200,x x,x,x)[state=a][]
  41.  
  42. # End of sample file
  43.  
  44. title Tumbling World
  45. title by Dave Stampe
  46. title memory
  47.